10 REM ************************************************************************ 
100 REM **********   PUT MESSAGE INTO TWO STRINGS - TEXT$ AND TEXT2$   **********
110 VARNAME
120 VARNAME
130 VARNAME
140 VARNAME
150 UNKNOWN OP: 0x3A
160 REM **********   DRAW 8 COLOURED LINES AT THE TOP OF THE SCREEN   ********** 
170 FOR
180 REM **********  COPY THEM INTO TEMP$ VARIABLE AND CREATE STRIPES  ********** 
190 VARNAME
20 REM *                                                                      * 
200 FOR
210 SCREEN COPY
220 REM **********       "DUMB" COLOUR CYCLE WITH SHIFT COMMAND       ********** 
230 SHIFT
240 UNKNOWN OP: 0x3A
250 REM **********   DEFINE SCROLL ZONE AND Y COORD FOR TEXT TO SIT   ********** 
260 VARNAME
270 DEF
280 UNKNOWN OP: 0x3A
290 REM **********       START MAIN LOOP FOR SHUDDER TEXT PRINT       ********** 
30 REM *          STOS SPECIAL FX #2 - SIMPLE SCROLLY & SHUDDER DEMO          * 
300 FOR
310 LOCATE
320 UNKNOWN OP: 0x3A
330 REM ********** CREATE A SHUDDER EFFECT WITH SCROLL UP+SCROLL DOWN ********** 
340 BOOM
350 NEXT
360 WAIT
370 UNKNOWN OP: 0x3A
380 REM **********     SCROLL FIRST LOT OF TEXT OFF SCREEN RAPIDLY    ********** 
390 FOR
40 REM *                                                                      * 
400 UNKNOWN OP: 0x3A
410 REM **********               SCROLL TEXT2$ MAIN LOOP              ********** 
420 REPEAT
430 FOR
440 LOCATE
450 UNKNOWN OP: 0x3A
460 REM **********   PRINTS AT FAR RIGHT OF SCREEN AND SCROLLS LEFT   ********** 
470 WAIT VBL
480 NEXT
490 UNTIL
50 REM *                           BY P.J.HICKMAN                             * 
60 REM *                                                                      * 
70 REM ************************************************************************ 
80 KEY
90 UNKNOWN OP: 0x3A